home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
0292.ZIP
/
GENEPROG.ARC
/
REVIEW.PRG
< prev
next >
Wrap
Text File
|
1985-12-21
|
2KB
|
56 lines
*SUBROUTINE REVIEW 3/29/85 REVIEW
*
SET DEVICE TO SCREEN
USE GENE INDEX SNINDX
ENABLE=" "
DO WHILE .NOT.ENABLE="S"
CLEAR
CLEAR GETS
@ 1,5 SAY "LAST " GET LAST
@ 1,32 SAY "FIRST " GET FIRST
@ 1,50 SAY "MIDDLE " GET MIDDLE
@ 1,70 SAY "NUM " GET NUM
@ 2,5 SAY "FULL NAME " GET FULNAME
@ 2,45 SAY "SORT NAME " GET SORTNAME
@ 3,5 SAY "RESIDENCES " GET RESIDENCES
@ 4,5 SAY "BORN " GET DOB
@ 4,30 SAY "PLACE " GET POB
@ 5,5 SAY "DIED " GET DOD
@ 5,30 SAY "PLACE " GET POD
@ 6,5 SAY "SPOUSE " GET SPOUSE
@ 7,5 SAY "MARRIED " GET DMAR
@ 7,30 SAY "PLACE " GET PMAR
@ 8,5 SAY "MOTHER " GET MOTHER
@ 9,5 SAY "FATHER " GET FATHER
@ 10,5 SAY "CHILDREN 1&6 " GET CHILD1
@ 11,5 SAY " 2&7 " GET CHILD2
@ 12,5 SAY " 3&8 " GET CHILD3
@ 13,5 SAY " 4&9 " GET CHILD4
@ 14,5 SAY " 5&10 " GET CHILD5
@ 15,5 SAY "SISTERS " GET SISTERS
@ 16,5 SAY "BROTHERS " GET BROTHERS
@ 17,5 SAY "OCCUPATION " GET OCCUPATION
@ 18,5 SAY "CHART " GET CHART
@ 18,30 SAY "DESCENDANT " GET DESCENDANT
@ 20,5 SAY "CONTINUED "
READ
CLEAR
@ 10,5 SAY "NOTES " GET COMM1
@ 11,5 SAY " " GET COMM2
@ 12,5 SAY " " GET COMM3
@ 13,5 SAY " " GET COMM4
@ 14,5 SAY " " GET COMM5
@ 15,5 SAY "REFERENCES " GET REFERENCE
@ 16,5 SAY "UPDATED " GET UPDATE
@ 22,5 SAY "ENTER S TO END REVIEW OR RETURN TO CONTINUE" GET ENABLE
READ
SKIP
ENDDO
CLEAR GETS
CLEAR
RETURN
*END OF SUBROUTINE